0 POKE53280,9:POKE53281,9:IFPEEK(182)=0THENPOKE182,1:LOAD"ZEICHEN",8,1 1 POKE53272,48:POKE56576,0:POKE648,204:GOSUB100 5 A=1023:RESTORE:AF=52264 6 READC 7 IFC=-1THENRETURN 9 FORY=1TO4:POKE(A+Y),C:NEXTY:A=A+4 10 GOTO6 12 DATA1,1,1,0,100,100,0,0,1,0,0,1,1,2,10,20,100,0,50,1,0,0,0,0,1,1,2,5,5,25,0 13 DATA 0,100,100,0,0,20,-1 19 FORI=1TOZZ 20 A(I)=2800:SG(I)=2000:PO(I)=250:EW(I)=50000:JA=2010:EG(I)=26000 21 EB(I)=24000:G(I)=35000:UP(I)=1200:LB(I)=20000:PI(I)=450:LH(I)=600 46 GV(I)=25000:GB(I)=24738:BL(I)=1535:GL(I)=2465:LA(I)=50000:GK(I)=25000 47 EV(I)=2000:GA(I)=0:AL(I)=0:AC(I)=500:NEXT 50 FORX=1TO10:POKE(1379+X),2:NEXT:RETURN 100 PRINT"[144][147][215]IEVIEL [211]PIELER (1-4) ";:INPUTZZ 122 IF ZZ<1 ORZZ>4 THEN 100 123 PRINT"[147]":FORI=1TOZZ 124 PRINT"[206]AME VON [211]PIELER";I;SPC(61):INPUTN$(I) 125 A=LEN(N$(I)):IFA>12THENPRINT"[145][145][145][145][145][145]":GOTO124 127 NEXT:GOSUB5:GOSUB19:GOSUB20950:GOSUB50000:GOSUB50100:GOTO20000 500 GOSUB19000:SP=52865:JMP=1:A=7:B=240:POKESP,62:G(I)=(INT(G(I))) 510 PRINTSPC(11)"[199]ELD :";G(I)"[200][198]":PRINTSPC(11)"[197]INWOHNER :";EW(I) 540 PRINTSPC(11)"[193]USL^NDER :";AL(I):PRINTSPC(11)"[204]ANDBESITZ :";LB(I)"[209][200][198]" 546 PRINTSPC(11)"BEBAUTES [204]AND :";BL(I)"[209][200][198]":PRINTSPC(11)"[194]AULAND :";GL(I)"[209][200][198]" 549 PRINTSPC(11)"[214]OLKSSTIMMUNG :";PEEK(1039+I)"%" 550 PRINTSPC(11)"[213]MWELTZUSTAND :";PEEK(1043+I)"%" 551 PRINTSPC(11)"[211][193][199]-[211]T^RKE :";PEEK(1151+I)"%" 560 PRINT"[197]NERGIE":PRINT"[202]USTIZ":PRINT"[212]OURISMUS":PRINT"[205]ILIT^R":PRINT"[201]NDUSTRIE" 610 PRINT"[204]ANDWIRTSCHAFT":PRINT"[193]USWERTUNG" 660 GOSUB 20100:IFJMP=7THEN50500 670 ON JMP GOSUB 999,1499,1999,2498,2999,3499:GOTO500 999 SP=52785:JMP=1 1000 GOSUB19000:PRINTSPC(10)"[199]ELD :";G(I)"[200][198]" 1002 A=10:POKESP,62:B=360:PRINTSPC(10)"[203]ERNKRAFTWERKE :";PEEK(1023+I) 1003 PRINTSPC(10)"[215]INDR^DER :";PEEK(1027+I) 1004 PRINTSPC(10)"[211]TAUD^MME :";PEEK(1031+I) 1005 PRINTSPC(10)"[197]NERGIEVORRAT :";EV(I)"[203][200][198]" 1006 PRINTSPC(10)"[197]NERGIEPRODUKTION:";EG(I)"[203][200][198]" 1007 PRINTSPC(10)"[197]NERGIE BEN\TIGT :";EB(I)"[203][200][198]" 1008 PRINTSPC(10)"[194]AULAND :";GL(I)"[209][200][198]" 1010 PRINT"[203]ERNKRAFTWERK KAUFEN - 3000 [200][198]":PRINT"[203]ERNKRAFTWERK VERKAUFEN" 1020 PRINT"[215]INDRAD KAUFEN - 2500 [200][198]":PRINT"[215]INDRAD VERKAUFEN" 1030 PRINT"[211]TAUDAMM KAUFEN - 1500 [200][198]":PRINT"[211]TAUDAMM VERKAUFEN" 1080 PRINT"[211]TROM ANBIETEN":PRINT"[211]TROM KAUFEN":PRINT"[211]TROMPREISE":PRINT"[200]AUPTMEN[184]" 1110 GOSUB 20100:IFJMP=10THENRETURN 1120 ONJMPGOSUB 19059,19088,19069,19098,19079,19108,19116,19127,19172:GOTO1000 1499 JMP=1:SP=52825 1500 GOSUB19000 1501 PRINTSPC(14)"[199]ELD :";G(I)"[200][198]":PRINTSPC(14)"[211]TEUERN :";PEEK(1083+I)"%" 1513 A=5:POKESP,62:B=160:PRINTSPC(14)"[199]EF^NGNISSE :";PEEK(1067+I) 1514 PRINTSPC(14)"[199]ESETZESH^RTE:";PEEK(1075+I) 1515 PRINTSPC(14)"[194]AULAND :";GL(I)"[209][200][198]" 1519 PRINT"[199]EF^NGNISS KAUFEN - 1500 [200][198]":PRINT"[211]TEUERN ^NDERN" 1522 PRINT"[199]ESETZESH^RTE":PRINT"[208]OLIZEI":PRINT"[200]AUPTMEN[184]" 1600 GOSUB20100:IFJMP=5THENRETURN 1619 IFJMP=4THEN19299 1620 ONJMPGOSUB19280,19260,19290:GOTO1500 1999 JMP=1:SP=52785 2000 GOSUB19000:PRINTSPC(11)"[199]ELD :";G(I)"[200][198]":POKESP,62:A=8:B=280 2010 PRINTSPC(11)"[200]OTELS :";PEEK(1071+I) 2012 PRINTSPC(11)"[198]REIZEITPARKS :";PEEK(1099+I) 2013 PRINTSPC(11)"[194]UNGALOWSIEDLUNGEN:";PEEK(1055+I) 2016 PRINTSPC(11)"[218]OLL";SPC(12)" :";PEEK(1079+I)"%" 2017 PRINTSPC(11)"[194]AULAND :";GL(I)"[209][200][198]" 2030 PRINT"[200]OTEL KAUFEN";SPC(12)"- 1000 [200][198]":PRINT"[200]OTEL VERKAUFEN" 2050 PRINT"[198]REIZEITPARK KAUFEN - 1250 [200][198]":PRINT"[198]REIZEITPARK VERKAUFEN" 2060 PRINT"[194]UNGALOWSIEDLUNG KAUFEN - 2500 [200][198]":PRINT"[194]UNGALOWSIEDLUNG VERKAUFEN" 2061 PRINT"[218]OLL":PRINT"[200]AUPTMEN[184]" 2080 GOSUB20100:IFJMP=8THENRETURN 2100 ONJMPGOSUB 19510,19515,19520,19525,19530,19535,19270:GOTO2000 2498 IFJA<2012THEN20060 2499 JMP=1:SP=52825 2500 GOSUB19000 2502 IF PEEK(1399+I)>100 THEN POKE(1399+I),100 2503 PRINTSPC(14)"[199]ELD :";G(I)"[200][198]":BB=0 2505 POKESP,62:A=7:B=240:PRINTSPC(14)"[198]LUGZEUGE :";PEEK(1309+I) 2506 PRINTSPC(14)"[208]ANZER :";PEEK(1299+I):PRINTSPC(14)"[201]NFANTERIE :";PEEK(1319+I) 2508 PRINTSPC(14)"[203]ASERNEN :";PEEK(1379+I):PRINTSPC(14)"[193]USBILDUNG :";PEEK(1399+I)"%" 2510 PRINTSPC(14)"[194]AULAND :";GL(I)"[209][200][198]" 2520 PRINT"[198]LUGZEUG KAUFEN - 800 [200][198]" 2530 PRINT"[208]ANZER KAUFEN - 500 [200][198]":PRINT"[201]NFANTERIE - 300 [200][198]" 2555 PRINT"[203]ASERNE KAUFEN - 500 [200][198]":PRINT"[201]NFORMATIONEN" 2558 PRINT"[203]RIEG":PRINT"[200]AUPTMEN[184]" 2570 GOSUB 20100:IFJMP=7THENRETURN 2571 IFJMP=6THEN19650 2573 Y=JMP 2590 ONJMP GOSUB19600,19600,19600,42500,37000:IFJM=11THEN2499 2593 GOTO2500 2999 SP=52825:JMP=1 3000 GOSUB19000:PRINTSPC(12)"[199]ELD :";G(I)"[200][198]" 3020 POKESP,62:A=7:B=240:PRINTSPC(12)"[199]ROSSE [198]ABRIKEN:";PEEK(1119+I) 3024 PRINTSPC(12)"[203]LEINE [198]ABRIKEN:";PEEK(1123+I) 3025 PRINTSPC(12)"[208]RODUKTION :";PI(I)"[201][200][198]" 3026 PRINTSPC(12)"[204]AGERH^USER :";PEEK(1127+I) 3027 PRINTSPC(12)"[204]AGERKAPAZIT^T :";LH(I)"[201][200][198]" 3028 PRINTSPC(12)"[194]AULAND :";GL(I)"[209][200][198]" 3060 PRINT"[198]ABRIK KAUFEN - 3000 [200][198]":PRINT"[198]ABRIK VERKAUFEN" 3070 PRINT"[203]L. [198]ABRIK KAUFEN - 1500 [200][198]":PRINT"[203]L. [198]ABRIK VERKAUFEN" 3100 PRINT"[204]AGERHAUS KAUFEN - 1200 [200][198]":PRINT"[204]AGERHAUS VERKAUFEN" 3120 PRINT"[200]AUPTMEN[184]" 3210 GOSUB 20100:IFJMP=7THENRETURN 3230 ON JMP GOSUB 14999,15018,15009,15028,15039,15048:GOTO3000 3499 JMP=1:SP=52825 3500 GOSUB19000:PRINTSPC(9)"[199]ELD";SPC(13)":";G(I)"[200][198]" 3540 POKESP,62:A=9:B=320:PRINTSPC(9)"[199]ETREIDEM[184]HLEN :";PEEK(1139+I) 3541 PRINTSPC(9)"[205][184]HLENKAPAZIT^T :";GK(I)"[199][200][198]" 3550 PRINTSPC(9)"[204]AGERH^USER :";PEEK(1135+I) 3551 IFLA(I)<1THENLA(I)=0 3552 PRINTSPC(9)"[204]AGERKAPAZIT^T :";LA(I)"[199][200][198]" 3553 PRINTSPC(9)"[193]CKERLAND :";AC(I)"[209][200][198]" 3554 PRINTSPC(9)"GEEIGNETES [204]AND :";GL(I)"[209][200][198]" 3560 PRINTSPC(9)"[199]ETREIDEVORRAT :";GV(I)"[199][200][198]" 3570 PRINTSPC(9)"[199]ETREIDE BEN\TIGT:";GB(I)"[199][200][198]" 3571 PRINTSPC(9)"[211]AATGUT BEN\TIGT :";SG(I)"[199][200][198]" 3600 PRINT"[199]ETREIDEFELDER ANLEGEN":PRINT"[204]AGERHAUS KAUFEN - 500 3630 [153]"(null)AGERHAUS VERKAUFEN":[153]"CHR$ETREIDEMFREHLE KAUFEN - 1100 LEFT$ASC" 3650 [153]"CHR$ETREIDEMFREHLE VERKAUFEN":[153]"CHR$ETREIDE ANBIETEN":[153]"CHR$ETREIDE KAUFEN" 3671 [153]"(null)REISE ANSCHAUEN":[153]"LEFT$AUPTMENFRE" 3700 [141] 20100:[139]JMP[178]9[167][142] 3720 [145] JMP [141] 15500,15601,15608,15620,15627,15690,15750,15850:[137]3500 14999 A[178]1119:D[178]0:E[178]300:F[178]0:G[178]800:H[178][171]3000:J[178]100:Z[178]120:Q[178]0:[137]20350 15009 A[178]1123:D[178]0:E[178]150:F[178]0:G[178]500:H[178][171]1500:Z[178]80:J[178]70:Q[178]0:[137]20350 15018 A[178]1119:D[178]80:E[178][171]300:F[178]0:G[178][171]800:H[178]3000:Z[178][171]120:J[178]0:Q[178]100:[137]20350 15028 A[178]1123:D[178]60:E[178][171]150:F[178]0:Z[178][171]80:G[178][171]400:H[178]1500:J[178]0:Q[178]70:[137]20350 15039 A[178]1127:D[178]0:E[178]0:F[178]300:G[178]20:H[178][171]1200:J[178]80:Z[178]80:Q[178]0:[137]20350 15048 A[178]1127:D[178]20:E[178]0:F[178][171]300:G[178][171]20:Z[178][171]80:H[178]1200:J[178]0:Q[178]80:[137]20350 15500 [141]19000:[153]"(null)IE HABEN";LB(I);"(null)LEFT$ASC (null)AND,VON DENEN" 15515 [153]"";AC(I);"(null)LEFT$ASC BEPFLANZT UND";GL(I);"(null)LEFT$ASC":[153]"GEEIGNET SIND." 15530 A[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN SIE NEU":[153]"BEPFLANZEN ";:[133]A 15535 [139]A[177]GL(I)[176]A[179]0[167] [153]"ONONONONON":[137] 15530 15540 A[178]([181](A)):B[178]A[172]40:G(I)[178]G(I)[171]B:AC(I)[178]AC(I)[170]A:GL(I)[178]GL(I)[171]A 15544 SG(I)[178](A[172]4)[170]SG(I):[139][194](1043[170]I)[177]100[167][151](1043[170]I),100 15550 [153]"STR$AS HERSTELLEN VON LANDWIRTSCHAFT-" 15555 [153]"LICH GUT NUTZBAREM ATNCKER KOSTET":[153]"SIE";B"LEFT$ASC.":[137]20800 15601 A[178]500:B[178]1135:C[178]1:D[178]10000:X[178]60:E[178]0:Z[178]25:G[178]0:Z[178]20:Q[178]0:TY[178]20:[137]20400 15608 [139][194](1135[170]I)[179]0[167]20060 15611 A[178][171]500:X[178][171]60:B[178]1135:C[178][171]1:D[178][171]10000:E[178]0:Y[178]0:G[178]10:Z[178]0:Q[178]20:TY[178][171]20:[137]20400 15620 A[178]1100:B[178]1139:C[178]1:D[178]0:E[178]1000:G[178]0:X[178]90:Y[178]50:Z[178]120:Q[178]0:[137]20400 15627 [139][194](1139[170]I)[179]0[167]20060 15630 A[178][171]1100:Y[178]0:B[178]1139:C[178][171]1:D[178]0:E[178][171]1000:X[178][171]90:G[178]20:Z[178][171]120:Q[178]10:[137]20400 15690 [139]ZZ[179][177]1[167] 15694 15691 [141]19117:[142] 15694 [141]19000 15695 A[178]0:[153]"(null)IEVIEL CHR$LEFT$ASC WOLLEN (null)IE":[153]"ANBIETEN ";:[133]A 15697 A[178]([181](A)):[139]A[177]GV(I)[176]A[179]0[167] [153]"ONONONONONON":[137]15695 15702 GA(I)[178]GA(I)[170]A:GV(I)[178]GV(I)[171]A:B[178]0:[153]"(null)REIS PRO 100 CHR$LEFT$ASC ";:[133]B 15703 [139]B[177]255[176]B[179]0[167][153]"ONONONON":[137]15702 15705 [151](1143[170]I),B:[142] 15750 [141]19000 15751 [153]"PEEKEI (null)PIELER (A) ODER BEI (null)TORE (B)" 15756 [153]"ODER ZURFRECK INS (null)ENFRE (M) ?" 15757 [161] A$:[139]A$[178]""[167]15757 15758 [139]A$[178]"A"[175]ZZ[178]1[167] [153]"ONONONONONON":[137]15751 15759 [139] A$[178]"A"[167]15770 15761 [139] A$[178]"B"[167]15800 15763 [139] A$[178]"M"[167] [142] 15765 [153]"ONONONONONON":[137] 15751 15770 [153]"PEEKEI WELCHEM (null)PIELER ";:[133]A 15771 [139]A[178]0[167]15750 15772 [139]A[178]I[176]A[177]ZZ[176]A[179]1[167][153]"ONONONON":[137]15770 15773 [139]GA(A)[178]0[167][141]51300:[137]15770 15776 [153]"(null)PIELER";A;"BIETET";GA(A);"CHR$LEFT$ASC AN.(null)EIN" 15778 [153]"(null)REIS IST";[194](1143[170]A);"LEFT$ASC PRO 100 CHR$LEFT$ASC." 15780 [153]"(null)IEVIEL CHR$LEFT$ASC WOLLEN SIE ERWERBEN";[166]49):[133]B 15783 B[178]([181](B)):[139]B[179]0[176]B[177]GA(A)[167][153]"ONONONONONONONONONON":[137]15776 15784 B[178]([181](B)):GV(A)[178]GV(A)[171]B:GV(I)[178]GV(I)[170]B:GA(A)[178]GA(A)[171]B 15785 B[178](B[173]100)[172][194](1143[170]A):G(A)[178]G(A)[170]B:G(I)[178]G(I)[171]B:[139]GA(A)[178]0[167][151](1143[170]A),0 15786 [142] 15800 [141]19000 15801 [153]"STR$ER (null)REIS DER (null)TORE LIEGT BEI 40 LEFT$ASC" 15810 [153]"PRO 100 CHR$LEFT$ASC.(null)IEVIEL CHR$LEFT$ASC WOLLEN SIE" 15813 [153]"ERWERBEN ";:[133]A 15814 [139]A[179]0[167][153]"ONONONONONONONON":[137]15801 15817 A[178]([181](A)):GV(I)[178]GV(I)[170]A:C[178](A[173]100)[172]40:C[178]([181](C)):G(I)[178]G(I)[171]C:[142] 15850 [139] ZZ[177]1[167] 15855 15851 [141]19117:[142] 15855 [141]19000:Y[178]ZZ:[129]X[178]1[164]Y:[153]"CHR$ETREIDEANGEBOT ";N$(X);" =";GA(X)"CHR$LEFT$ASC" 15861 YY[178][195](N$(X)):[153]"CHR$ETREIDEPREIS";[166]YY[170]4)"=";[194](1143[170]X)"LEFT$ASC" 15865 [130]:[137]20800 19000 [153]"LOADMID$AHR:";JA"(null)R^SIDENT ";N$(I) 19010 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[142] 19059 A[178][171]3000:B[178]300:C[178]10000:D[178]120:F[178]1023:G[178][171]1:H[178]1:J[178]0:L[178]70:Q[178]0:[137]20249 19069 A[178][171]2500:D[178]10:B[178]50:C[178]5000:H[178]1:F[178]1027:G[178]2:J[178]0:L[178]5:Q[178]0:[137] 20249 19079 A[178][171]1500:D[178]40:B[178]100:C[178]11000:H[178][170]1:F[178]1031:G[178][171]3:J[178]0:L[178]200:Q[178]0:[137] 20249 19088 [139] [194](1023[170]I)[178]0 [167] 20060 19089 A[178]3000:D[178][171]120:B[178][171]300:C[178][171]10000:F[178]1023:G[178][171]1:H[178][171]1:J[178]80:L[178]0:Q[178]70:[137]20249 19098 [139] [194](1027[170]I)[178]0 [167] 20060 19099 A[178]2500:D[178][171]10:B[178][171]50:C[178][171]5000:F[178]1027:G[178][171]4:H[178][171]1:J[178]20:L[178]0:Q[178]5:[137]20249 19108 [139] [194](1031[170]I)[178]0 [167] 20060 19110 A[178]1500:D[178][171]40:B[178][171]100:L[178]0:C[178][171]11000:F[178]1031:G[178][171]1:H[178][171]1:J[178]40:Q[178]200:[137]20249 19116 [139]ZZ[177]1[167]19118 19117 [153]"ONONONON";[166]23)"(null)OZU ?WAIT":[137]20800 19118 [141]19000 19119 A[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN (null)IE":[153]"ANBIETEN ";:[133]A 19122 A[178]([181](A)):[139]A[177]EV(I)[176]A[179]0[167][153]"ONONONONONONON":[137]19119 19124 SVM(I)[178]SVM(I)[170]A:EV(I)[178]EV(I)[171]A:[153]"(null)REIS PRO (null)LEFT$ASC ";:[133]B 19125 [139]B[177]255[176]B[179]0[167] [153]"ONONONON":[137] 19124 19126 [151](1051[170]I),B:[142] 19127 [141]19000 19128 [153]"PEEKEI (null)PIELER (A) ODER (null)TORE (B)" 19129 [153]"ODER ZURFRECK INS (null)ENFRE (M) ?" 19130 [161]A$:[139] A$[178]""[167]19130 19131 [139]A$[178]"A"[175]ZZ[178]1[167][153]"ONONONONONON":[137]19128 19132 [139] A$[178]"A"[167]19136 19133 [139] A$[178]"B"[167]19150 19134 [139] A$[178]"M"[167][142] 19135 [153]"ONONONONONON":[137]19128 19136 [153]"PEEKEI WELCHEM (null)PIELER ";:[133] A 19137 [139]A[178]0[167]19127 19138 [139]A[178]I[176]A[177]ZZ[167] [153]"ONONONON":[137]19136 19139 [139]SVM(A)[178]0[167][141]51300:[137]19136 19140 [153]"(null)PIELER";A;"BIETET";SVM(A);"(null)LEFT$ASC (null)TROM ZUM" 19141 [153]"(null)REIS VON";[194](1051[170]A);"LEFT$ASC PRO (null)LEFT$ASC AN." 19142 B[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN SIE ERWERBEN";[166]49):[133] B 19144 B[178]([181](B)):[139]B[177]SVM(A)[176]B[179]0[167][153]"ONONONONONONON":[137] 19142 19146 C[178]B[172][194](1051[170]A):SVM(A)[178]SVM(A)[171]B:EV(I)[178]EV(I)[170]B:G(I)[178]G(I)[171]C:G(A)[178]G(A)[170]C:[142] 19150 [153]"STR$ER (null)TROMPREIS DER (null)TORE BETR^GT" 19151 [153]"3 LEFT$ASC PRO (null)LEFT$ASC.(null)IEVIEL (null)LEFT$ASC M\CHTEN":[153]"SIE ERWERBEN ";:[133]A 19152 [139]A[179]0[167][153]"ONONONONONONONON":[137]19150 19154 B[178]A[172]3:G(I)[178]G(I)[171]B:EV(I)[178]EV(I)[170]A:[142] 19172 [139]ZZ[179][177]1[167] 19175 19173 [141]19117:[142] 19175 [141]19000:Y[178]ZZ:[129]X[178]1[164]Y:[153]"(null)TROMANGEBOT ";N$(X);"=";SVM(X)"(null)LEFT$ASC" 19178 YY[178][195](N$(X)):[153]"(null)TROMPREIS";[166]YY[170]3)"=";[194](1051[170]X)"LEFT$ASC":[130]:[137]20800 19260 [141]19000 19261 Y[178][194](1083[170]I):[153]"(null)TEUERSATZ FESTLEGEN ((null)ROZENT) ";:[133]Y 19262 [139]Y[177]100[176]Y[179]0[176]Y[177][194](1167[170]I)[170]1[167][153]"ONONONON":[137]19261 19263 X[178]([194](1083[170]I)[171]Y)[172]10:[139][194](1039[170]I)[170]X[177]100[167][151](1039[170]I),100:[137]19268 19266 [139][194](1039[170]I)[170]X[179]1[167][151](1039[170]I),0:[137]19268 19267 [151](1039[170]I),[194](1039[170]I)[170]X 19268 [151](1083[170]I),Y:[142] 19270 [141]19000 19271 Y[178][194](1079[170]I):[153]"(null)OLL FESTLEGEN ((null)ROZENT) ";:[133]Y 19272 [139]Y[177]100[176]Y[179]0[167] [153]"ONONONON":[137]19271 19279 [151](1079[170]I),Y:[142] 19280 [139]GL(I)[171]30[179]0[167]20060 19285 [141]20050:G(I)[178]G(I)[171]1500:A(I)[178]A(I)[170]65:[151](1067[170]I),[194](1067[170]I)[170]1 19286 GL(I)[178]GL(I)[171]30:BL(I)[178]BL(I)[170]30:EB(I)[178]EB(I)[170]30:[142] 19290 YY[178][194](1075[170]I):[153]"(null)EUER LEFT$^RTGRAD (1-4) ";:[133]YY 19291 [139]YY[177]4[176]YY[179]1[167] [153]"ONONONON":[137]19290 19292 X[178][194](1075[170]I)[171]YY:[151](1075[170]I),YY:[139][194](1039[170]I)[170]X[177]100[167][151](1039[170]I),100:[142] 19295 [139][194](1039[170]I)[170]X[179]1[167][151](1039[170]I),0:[142] 19296 [151](1039[170]I),[194](1039[170]I)[170]X:[142] 19299 SP[178]52825:JMP[178]1 19300 [141]19000:[153][166]12)"CHR$ELD :";G(I)"LEFT$ASC" 19305 [151]SP,62:A[178]6:B[178]200:[153][166]12)"(null)OLIZISTEN :";PO(I) 19307 [153][166]12)"ATNUSBILDUNG :";[194](1087[170]I)"%" 19308 [153][166]12)"ATNUSR*STUNG :";[194](1155[170]I)"%" 19309 [153][166]12)"(null)ONDERKOMMANDOS:";[194](1091[170]I) 19315 [153]"(null)ONDERKOMMANDO - 200 LEFT$ASC":[153]"(null)OLIZISTEN EINSTELLEN" 19316 [153]"(null)OLIZISTEN ENTLASSEN" 19319 [153]"(null)ABOTAGE":[153]"RIGHT$NFORMATIONEN":[153]"(null)ENFRE" 19325 [141]20100:[139]JMP[178]6[167]1499 19326 [139]JMP[178]4[167]42000 19328 [145]JMP[141]19420,19360,50700,0,37000:[139]JM[178]11[167]19299 19329 [137]19300 19360 A[178]0:[153]"(null)IEVIEL (null)OLIZISTEN EINSTELLEN ";:[133]A 19361 [139]A[179]0[167][153]"ONONON":[137]19360 19362 A[178]([181](A)):A(I)[178]A(I)[170]A[172]10:PO(I)[178]PO(I)[170]A:[142] 19420 [141]20050 19422 G(I)[178]G(I)[171]200:A(I)[178]A(I)[170]60:[151](1091[170]I),[194](1091[170]I)[170]1:YY[178]1:[142] 19510 A[178]1000:B[178]110:C[178]400:D[178]1071:E[178]2:G[178]60:Z[178]140:Q[178]0:[137] 20290 19515 A[178][171]1000:B[178][171]110:C[178][171]400:D[178]1071:E[178]0:G[178]0:Z[178][171]140:Q[178]60:[137] 20290 19520 A[178]1250:B[178]70:C[178]0:D[178]1099:E[178]5:G[178]100:Z[178]250:Q[178]0:[137]20290 19525 A[178][171]1250:B[178][171]70:C[178]0:D[178]1099:E[178]0:G[178]0:Z[178][171]250:Q[178]100:[137]20290 19530 A[178]2500:C[178]200:B[178]20:D[178]1055:E[178]4:G[178]140:Z[178]170:Q[178]0:[137] 20290 19535 A[178][171]2500:C[178][171]200:B[178][171]20:D[178]1055:E[178]0:G[178]0:Z[178][171]170:Q[178]140:[137] 20290 19600 X[178]0:[153]"(null)IEVIEL (null)TFRECK ";:[133]X:[139]X[179]0[167][153]"ONONON":[137]19600 19601 [139]X[178]0[167][142] 19602 [145]Y[137]19610,19620,19630 19610 A[178]X[172]800:C[178]X[172]40:D[178]1309:B[178]X[172]3:[137]20200 19620 A[178]X[172]500:C[178]X[172]50:D[178]1299:B[178]X[172]2:[137]20200 19630 A[178]X[172]300:C[178]X[172]195:D[178]1319:B[178]X[172]1:[137]20200 19650 [139][194](1159[170]I)[178]0[175]JA[177]2012[167]BB[178]1:[137]35000 19651 [141]20060:[137]2499 19676 [141]20800 19677 P[178]0:[153]"LOADVALS WIRD IN ";:B[178][181](4[172][187](1))[170]1:[145]B[137]19690,19700,19710,19719 19690 [153]"DICHTEN (null)^LDERN":A[178]3:B[178]1:C[178]2:[137]19720 19700 [153]"FLACHER (null)ANDSCHAFT":A[178]1:B[178]2:C[178]3:[137]19720 19710 [153]"SUMPFIGER (null)ANDSCHAFT":A[178]2:B[178]1:C[178]3:[137]19720 19719 [153]"HFREGELIGER (null)ANDSCHAFT":A[178]2:B[178]3:C[178]1 19720 [153]"GEK^MPFT." 19721 [141] 19890 19723 XX[178]0:YY[178]0:P[178]P[170]1:[141]20450 19725 [139][194](1299[170]I)[170][194](1309[170]I)[170][194](1319[170]I)[178]0[167]A[178]I:B[178]Y:[137]40000 19726 [139][194](1299[170]Y)[170][194](1309[170]Y)[170][194](1319[170]Y)[178]0[167]A[178]Y:B[178]I:[137]40000 19729 [139]P[178]40[170][194](1710)[172]3[167]19851 19730 Z[178]A[172][194](1299[170]I):Q[178]B[172][194](1309[170]I):W[178]C[172][194](1319[170]I):A2[178]A[172][194](1299[170]Y) 19731 B2[178]B[172][194](1309[170]Y):C2[178]C[172][194](1319[170]Y):Z[178]Z[170]Q[170]W[170][194](1399[170]I) 19732 A2[178]A2[170]B2[170]C2[170][194](1399[170]Y):M[178]Z[170]A2 19735 [139]P[178]20[170][194](1710)[172]4[167]19851 19736 [137]19855 19851 [153]"VALNDE DES (null)RIEGES !":[141]20800:[139]A2[179]Z[167]A[178]Y:B[178]I:[137]19900 19853 [139]Z[179]A2[167]A[178]I:B[178]Y:[137]19900 19854 [139]Z[178]A2[167]Z[178]Z[170]1:[153]"ONONONON":[137]19851 19855 D[178][181](M[172][187](1))[170]1:E[178][181](3[172][187](1))[170]1:[139]D[179]Z[167]X[178]Y:[141]19865 19858 [139]D[177]Z[167]X[178]I:[141]19865 19860 [137] 19723 19865 E[178][181](3[172][187](1))[170]1:[145]E[141] 19870,19875,19880:[139]YY[178]1[167]YY[178]0:[137]19865 19867 YY[178]1:[142] 19870 [139][194](1299[170]X)[179]1[167]YY[178]1:[142] 19872 [151](1299[170]X),[194](1299[170]X)[171]1:[151](1349[170]I),[194](1349[170]I)[170]1:[142] 19875 [139][194](1309[170]X)[179]1[167]YY[178]1:[142] 19876 [151](1309[170]X),[194](1309[170]X)[171]1:[151](1359[170]I),[194](1359[170]I)[170]1:[142] 19880 [139][194](1319[170]X)[179]1[167]YY[178]1:[142] 19886 [151](1319[170]X),[194](1319[170]X)[171]1:[151](1369[170]I),[194](1369[170]I)[170]1:[142] 19890 A$(1)[178]"(null)ANZER":A$(2)[178]"ASCLUGZEUGE":A$(3)[178]"RIGHT$NFANTERIE":[153]"";LN$(I) 19891 [129]X[178]1[164]3:[153]"";A$(X):[130]:[153]"";LN$(Y):[129]X[178]1[164]3 19892 [153]"";A$(X):[130]:[142] 19900 X[178][194](1299[170]A)[170][194](1309[170]A)[170][194](1319[170]A)[170][194](1349[170]A)[170][194](1359[170]A)[170][194](1369[170]A)[170]1 19901 [151](1349[170]A),0:[151](1349[170]B),0:[151](1359[170]A),0:[151](1359[170]B),0:[151](1369[170]A),0 19902 [151](1369[170]B),0 19905 Z[178][181]((LB(A)[173]X))[170]400 19915 [153]"LOAD";LN$(A)" VERLOR"; 19916 [139]A[179]ZZ[176]A[178]ZZ[175]Z[177]GL(A)[167]Z[178]GL(A) 19920 [153]Z"(null)LEFT$ASC (null)AND.":LB(A)[178]LB(A)[171]Z:LB(B)[178]LB(B)[170]Z:GL(B)[178]GL(B)[170]Z:GL(A)[178]GL(A)[171]Z 19950 [141]47000:[141]20800:[139]BB[178]1[167]BB[178]0:[137]2499 19951 [142] 20000 [129]I[178]1[164]ZZ:[139] [194](1699[170]I)[178]1[167]B(I)[178]0:[137]20010 20005 P(I)[178]0:AG(I)[178]0:[141]500:[141]21000:[151](1159[170]I),0 20007 [141]23010:[151](1163[170]I),0:[141]43000 20009 [139]JA[178](2010[170][194](1711))[167]30000 20010 [139]G(I)[179]0[167][141]32000 20011 [139]I[178]ZZ[167][141]38000 20013 [130]I:JA[178]JA[170]1 20014 [129]X[178]1[164]4:[151](1167[170]X),[194](1083[170]X):[130] 20015 [139]JA[177]2011[167][141]41000 20016 X[178]0:[129]Y[178]1[164]ZZ:X[178]X[170][194](1699[170]Y):[130]:[139]X[178]ZZ[167]20700 20020 [137]20000 20050 SI[178]54272:FL[178]SI:FH[178]SI[170]1:W[178]SI[170]4:Y[178]SI[170]5:HI[178]SI[170]6:P[178]SI[170]24 20051 [151]P,15:[151]Y,16[170]9:[151]FH,29:[151]FL,19:[151]W,17:[129]T[178]1[164]500:[130]:[151]W,0:[151]Y,0:[142] 20060 SI[178]54272:FL[178]SI:FH[178]SI[170]1:TL[178]SI[170]2:TH[178]SI[170]3:W[178]SI[170]4:A[178]SI[170]5:H[178]SI[170]6:L[178]SI[170]24 20061 [129]X[178]15[164]0[169][171]1:[151]L,X:[151]A,15:[151]EH,0:[151]FH,40:[151]FL,55:[151]W,65:[130]:[151]W,0 20064 [151]A,0:[142] 20100 [161] A$:[139] A$[178]"" [167] 20100 20110 YY[178]([198](A$)):[139]YY[178]145[167]JMP[178]JMP[171]1:[141] 20160 20130 [139]YY[178]17[167]JMP[178]JMP[170]1:[141] 20170 20135 [139]YY[178]13[167][142] 20145 [137] 20100 20160 [139]JMP[178]0[167]JMP[178]A:[151]SP,32:SP[178]SP[170]B:[151]SP,62:[142] 20161 [151]SP,32:SP[178]SP[171]40:[151]SP,62:[142] 20170 [139]JMP[178]A[170]1[167]JMP[178]1:[151]SP,32:SP[178]SP[171]B:[151]SP,62:[142] 20171 [151]SP,32:SP[178]SP[170]40:[151]SP,62:[142] 20200 [139]([194](1299[170]I)[170][194](1309[170]I)[170][194](1319[170]I)[170]X)[173]9[179][178][194](1379[170]I)[167]20204 20202 [153]"ONONONSTOPVALRST (null)ASERNE KAUFEN!WAIT":[141]20800:[142] 20204 [139][194](D[170]I)[170]X[177]255[167][142] 20209 G(I)[178]G(I)[171]A:A(I)[178]A(I)[170]C:[151](D[170]I),[194](D[170]I)[170]X 20210 [139][194](1399[170]I)[170]B[177]255[167][151](1399[170]I),255:[137]20050 20211 [151](1399[170]I),[194](1399[170]I)[170]B:[137]20050 20249 [139] GL(I)[171]L[179]1[167]20060 20252 [141]20050:G(I)[178]G(I)[170]A:EB(I)[178]EB(I)[170]B:EG(I)[178]EG(I)[170]C:A(I)[178]A(I)[170]D:LB(I)[178]LB(I)[171]Q 20254 [151](F[170]I),[194](F[170]I)[170]H:AL(I)[178]AL(I)[170]J:GL(I)[178]GL(I)[171]L:BL(I)[178]BL(I)[170]L:BL(I)[178]BL(I)[171]Q 20255 [151](1039[170]I),[194](1039[170]I)[170]G:[139][194](1039[170]I)[179]5[167][151](1039[170]I),6 20257 [139][194](1039[170]I)[177]100[167] [151](1039[170]I),100:[142] 20258 [142] 20290 [139][194](1095[170]I)[177]200[167]49000 20291 [153]"(null)IEVIEL (null)TFRECK ";:[133]V 20292 X[178]V:[139]JM[178]2[176]JM[178]4[176]JM[178]6[167]V[178]V[171](V[172]2) 20293 [139][194](D[170]I)[170]V[179]0[167][153]"ONONON":[137]20290 20294 [139]V[178]0[167][142] 20295 [139]GL(I)[171]X[172]G[179]0[176][194](D[170]I)[170]V[177]255[176]X[179]0[167][153]"ONONON":[137]20290 20300 G(I)[178]G(I)[171]X[172]A:A(I)[178]A(I)[170]X[172]B:UP(I)[178]UP(I)[170]X[172]C:[151](D[170]I),[194](D[170]I)[170]V 20302 BL(I)[178]BL(I)[170]X[172]G:GL(I)[178]GL(I)[171]X[172]G 20304 [139][194](1095[170]I)[170]X[172]E[177]255[167][151](1095[170]I),255:[137]20307 20305 [151](1095[170]I),[194](1095[170]I)[170]X[172]E 20307 EB(I)[178]EB(I)[170]X[172]Z:LB(I)[178]LB(I)[171]X[172]Q:BL(I)[178]BL(I)[171]X[172]Q:[137]20050 20350 [153]"(null)IEVIEL (null)TFRECK ";:[133]X 20351 V[178]X:[139]JM[178]2[176]JM[178]4[176]JM[178]6[167]V[178]X[171](X[172]2) 20352 [139]X[178]0[167][142] 20353 [139]GL(I)[171]X[172]J[179]0[176][194](A[170]I)[170]V[177]255[176][194](A[170]I)[170]V[179]0[167][153]"ONONON":[137]20350 20360 AL(I)[178]AL(I)[170]X[172]D:[151](A[170]I),[194](A[170]I)[170]V:PI(I)[178]PI(I)[170]X[172]E 20362 GL(I)[178]GL(I)[171]X[172]J:LH(I)[178]LH(I)[170]X[172]F:EB(I)[178]EB(I)[170]X[172]G:G(I)[178]G(I)[170]X[172]H 20364 BL(I)[178]BL(I)[170]X[172]J:A(I)[178]A(I)[170]X[172]Z:LB(I)[178]LB(I)[171]X[172]Q:BL(I)[178]BL(I)[171]X[172]Q:[137]20050 20400 [139]GL(I)[171]Z[179]1[167]20060 20402 G(I)[178]G(I)[171]A:[151](B[170]I),[194](B[170]I)[170]C:LA(I)[178]LA(I)[170]D:GK(I)[178]GK(I)[170]E 20403 AL(I)[178]AL(I)[170]G:A(I)[178]A(I)[170]X:GL(I)[178]GL(I)[171]Z:EB(I)[178]EB(I)[170]TY 20405 LB(I)[178]LB(I)[171]Q:BL(I)[178]BL(I)[171]Q:[137]20050 20450 [153]" CMDCMDCMDCMD"[194](1299[170]I) 20451 [153]" CMDCMDCMDCMD"[194](1309[170]I) 20452 [153]" CMDCMDCMDCMD"[194](1319[170]I) 20453 [153]" CMDCMDCMDCMD"[194](1299[170]Y) 20454 [153]" CMDCMDCMDCMD"[194](1309[170]Y) 20455 [153]" CMDCMDCMDCMD"[194](1319[170]Y) 20465 [142] 20500 [151]198,0:[153]"(null)IE HABEN";G(I)"LEFT$ASC ZUR (null)ERFFREGUNG." 20501 B[178]0:[153]"(null)IEVIEL LEFT$ASC WOLLEN SIE BEREITSTELLEN";[166]5):[133]B 20502 [139] B[177][171]0.01[167]20505 20503 [137]20500 20505 G(I)[178]G(I)[171]B:[142] 20550 X[178][194](1023[170]I)[172]2[170][194](1031[170]I)[172]3[170][194](1055[170]I)[172]2[170][194](1071[170]I)[172]1[170][194](1099[170]I)[172]1 20551 X[178]X[170][194](1119[170]I)[172]3.5[170][194](1123[170]I)[172]2[170](AC(I)[173]100)[170][194](1380[170]I)[172]0.5[170][194](1128[170]I)[172]0.5 20554 X[178]X[170][194](1135[170]I)[172]0.5:X[178]([181](X)):[139][194](1043[170]I)[171]X[179]1[167][151](1043[170]I),0:[142] 20555 [151](1043[170]I),[194](1043[170]I)[171]X:[142] 20700 [153]"LOAD(null)OLLEN SIE NOCH EIN (null)PIEL WAGEN (S)" 20720 [153]"ODER LIEBER AUFH\REN (A) ?" 20730 [161]A$:[139]A$[178]""[167]20730 20740 [139]A$[178]"S"[167][138] 20741 [139]A$[178]"A"[167][158]64738 20743 [137]20730 20800 [151]198,0:[146]198,1:[151]198,0:[142] 20950 [129]X[178]1[164]40:[151](1299[170]X),6:[130]:[129]X[178]1[164]30:[151](1349[170]X),0:[130] 20955 [129]X[178](ZZ[170]1)[164]10:LB(X)[178]20000:[130] 20960 [129]X[178]1[164]10:[135]LN$(X):[130]:[137]20980 20965 [131]"STR$EUTSCHLAND","ASCRANKREICH","(null)CHWEDEN","STR$^NEMARK","LEFT$OLLAND" 20970 [131]"(null)CHWEIZ","RIGHT$TALIEN","VALNGLAND","POSSTERREICH","(null)PANIEN" 20980 [129]X[178]1[164]10:Y[178][181](10[172][187](1))[170]20:[151](1399[170]X),Y:[151](1699[170]X),0:[130]:[142] 21000 [141]19000:[153]"VALNERGIE:" 21002 [139][194](1039[170]I)[171][194](1075[170]I)[179]1[167][151](1039[170]I),0:[137]21020 21004 [151](1039[170]I),[194](1039[170]I)[171][194](1075[170]I) 21020 [153]"(null)RODUKTION :";EG(I)"(null)LEFT$ASC" 21021 [153]"(null)ORRAT :";EV(I)"(null)LEFT$ASC" 21025 [153]"VALNERGIE BEN\TIGT:";EB(I)"(null)LEFT$ASC":EV(I)[178](EV(I)[170]EG(I))[171]EB(I):G[178]1 21030 [139]EV(I)[179]0[167]G[178]EV(I):EV(I)[178]0 21031 [139]G[177]0[167]21305 21050 X[178][181](G[172][171]1.98):G(I)[178]G(I)[171]X:[153]"(null)U WENIG VALNERGIE,ES ENTSTANDEN" 21060 [153]"(null)CH^DEN IN LEFT$\HE VON";X"LEFT$ASC.":G(I)[178]G(I)[171]X 21145 [151](1155[170]I),[194](1155[170]I)[171]1 21305 [153]"MID$USTIZ:" 21306 X[178][181](750[172][187](1))[170]750:X[178]X[171][194](1087[170]I)[171][194](1155[170]I)[171]PO(I):[139]X[179]50[167][141]52000 21310 [153]"BEGANGENE (null)ERBRECHEN :";X 21315 Y[178][181](X[173]([194](1075[170]I)[170]3)):[153]"CHR$EF^NGNISSTRAFEN :";Y 21320 X[178][181](X[172]1.9):[153]"ENTSTANDENER (null)CHADEN :";X"LEFT$ASC":G(I)[178]G(I)[171]X 21395 X[178][194](1067[170]I)[172]100:[139]Y[179]X[167]21490 21450 [153]"(null)U WENIG CHR$EF^NGNISSE,ES ENTSTANDEN" 21453 Y[178]X[171]Y[172][171]5:[153]"VALXTRAKOSTEN IN LEFT$\HE VON";Y"LEFT$ASC.":G(I)[178]G(I)[171]Y 21490 [141]20800 21499 [141]19000:[153]"VALINNAHMEN DURCH" 21500 Y[178][181](1000[172][187](1))[170]99:X[178]((EW(I)[173]0.3)[170]Y)[173]100[172][194](1083[170]I):X[178]([181](X[172]2)) 21510 [153]"- (null)TEUERN :";X"LEFT$ASC":G(I)[178]G(I)[170]X 21520 X[178]([181](EB(I)[173]3.34)):[153]"- (null)TROMVERKAUF ANS (null)OLK :";X"LEFT$ASC":G(I)[178]G(I)[170]X 21521 [139]AL(I)[179]1[167]21550 21536 X[178][181](AL(I)[173]0.911):G(I)[178]G(I)[170]X:[153]"- ATNBGABEN VON ATNUSL^NDERN:";X"LEFT$ASC" 21550 Y[178][181](999[172][187](1)):X[178][181](UP(I)[173]32.72)[172][194](1095[170]I)[170]Y[171]([194](1079[170]I)[172]30) 21555 [139]X[179]1000[167]X[178]1000 21590 [153]"- (null)OURISMUS :";X"LEFT$ASC 21591 G(I)=G(I)+X 21600 Z=INT(UP(I)/100)*PEEK(1079+I):X=INT((Z/2)*RND(1)):Z=Z+X 21630 PRINT"- [218]OLL :";Z"[200][198]":G(I)=G(I)+Z:GOSUB46000 21690 Q=INT(3*RND(1))+5:Y=X*Q:PRINT"- [201]NDUSTRIE :";Y"[200][198]" 21691 G(I)=G(I)+Y:IFZ=1THENGOSUB46002 21750 GOSUB20800:GOSUB44000:GOTO45000 21751 GOSUB33000 21752 IFAL(I)=0THEN21755 21753 X=INT(AL(I)/200):IFPEEK(1039+I)-X<1THENPOKE(1039+I),0:GOTO21755 21754 POKE(1039+I),PEEK(1039+I)-X 21755 GOSUB19000:PRINT"[197]RNTE" 21757 PRINT"[215]ETTERLAGE :"; 21760 X=INT(4*RND(1))+1:ONXGOTO21770,21780,21790,21800,21 21770 PRINT"[196]*RRE":X=5:GOTO21820 21780 PRINT"SEHR TROCKEN":X=6.5:GOTO21820 21790 PRINT"NORMAL":X=12:GOTO21820 21800 PRINT"SEHR GUT":X=16:GOTO21820 21810 PRINT"ZU FEUCHT":X=9:GOTO21820 21820 IFW>300THENZ=INT(4000*RND(1)):GOTO21830 21823 Z=0 21830 Y=INT((W*X)+Z):PRINT"[197]RNTE :";Y"[199][200][198]" 21839 PRINT"[214]ORRAT :";GV(I)"[199][200][198]" 21842 PRINT"[214]ERBRAUCH :";GB(I)"[199][200][198]":GV(I)=GV(I)+Y 21843 IFGB(I)>GK(I)ANDGV(I)>GK(I)THENGOSUB20800:GOSUB49500 21844 IFGV(I)<0THENGV(I)=0 21845 IFGV(I)100THENPOKE(1043+I),100:GOTO22150 22092 POKE(1043+I),PEEK(1043+I)+W 22150 GOSUB 19000 22210 Q=(INT(EW(I)/2244)):IFPEEK(1039+I)-Q<1THENPOKE(1039+I),0:GOTO22218 22213 POKE(1039+I),PEEK(1039+I)-Q 22218 Y=(100-PEEK(1039+I))*523:Z=(JA-2010)*251 22219 X=INT(500*RND(1)):Y=Y+X+Z:PRINT"[196]AS [214]OLK VERLANGT";Y"[200][198] VON" 22220 PRINT"[201]HNEN,UM \FFENTLICHE [197]INRICHTUNGEN":PRINT"FINANZIEREN ZU K\NNEN." 22235 GOSUB20500:X=INT(B/523):IFPEEK(1039+I)+X>100THENPOKE(1039+I),100:GOTO22305 22240 POKE(1039+I),PEEK(1039+I)+X 22305 GOSUB47500:IFPEEK(1043+I)<50THENGOSUB22400 22320 IFPEEK(1039+I)<40THENGOSUB22500 22325 RETURN 22400 GOSUB19000:X=INT(4*RND(1))+1:PRINT"[196]URCH DEN SCHLECHTEN [218]USTAND" 22410 Y=100-PEEK(1043+I):X=X*Y:X=(INT(X)):Y=INT(9*RND(1))+1:X=X+Y 22411 PRINT"DER [213]MWELT STARBEN" 22412 PRINT"";X"[205]ENSCHEN AN SCHWEREN [214]ERGIFT-" 22415 PRINT"UNGEN.[196]AS [214]OLK IST DAR*BER SEHR VER-" 22420 PRINT"^RGERT UND FORDERT SIE AUF,MEHR F*R":EW(I)=EW(I)-X 22425 PRINT"DIE [213]MWELT ZU TUN.":X=X/20 22426 IFPEEK(1039+I)-X<1THENPOKE(1039+I),0:GOTO22430 22427 POKE(1039+I),PEEK(1039+I)-X 22430 GOTO20800 22500 GOSUB31000:PRINT"[146][208]RESIDENT ";N$(I)" IST LEIDER AUSGE-" 22510 PRINT"SCHEIDEN.[197]R WURDE VON SEINEM W*TENDEM" 22515 PRINT"[214]OLK GEBLENDET UND VERBANNT.":PRINT"IHRE POLITISCHE [203]ARRIERE IST DAMIT" 22525 PRINT"WOHL BEENDET.":T(I)=1:GOTO20800 22600 IFPEEK(1379+I)<1THENPOKE(1152+I),0:RETURN 22610 GOSUB19000:Z=PEEK(1379+I)*99:X=Z/100:PRINT"[196]IE [211][193][199] FORDERT VON IHNEN," 22630 PRINT"";Z"[200][198] F*R DIE [211]ICHERUNG VON" 22635 PRINT"[203]ASERNEN BEREITZUSTELLEN.":GOSUB20500:Y=B/X 22636 IFPEEK(1151+I)+Y>100THENPOKE(1151+I),100:RETURN 22637 POKE(1151+I),Y:RETURN 23010 X=INT(54*RND(1))+1:IFX>27THENRETURN 23015 GOSUB19000:PRINTSPC(13)"[197][210][197][201][199][206][201][211][211]" 23020 ON X GOTO23100,23200,23300,23400,23500,23600,23700,23800,23900,24000 23025 ONX-10GOTO24100,24200,24300,24400,24500,24600,24700,24800,24900,25000 23030 ONX-20GOTO25100,25200,25300,25400,25500,25600,25700 23100 Y=INT(4*RND(1))+1:ONYGOTO23105,23107,23109,23111 23105 A=1027:B$=" [215]INDRAD":EG(I)=EG(I)-5000:A(I)=A(I)-60:EV(I)=EV(I)-50 23106 GL(I)=GL(I)+25:GOTO23115 23107 A=1031:B$=" [211]TAUDAMM":EG(I)=EG(I)-11000:A(I)=A(I)-40 23108 GL(I)=GL(I)+200:EB(I)=EB(I)-100:GOTO23115 23109 A=1071:B$=" [200]OTEL":EB(I)=EB(I)-140:A(I)=A(I)-110:GL(I)=GL(I)+60 23110 UP(I)=UP(I)-400:GOTO23115 23111 A=1123:B$="E [198]ABRIK":PI(I)=PI(I)-3000:EB(I)=EB(I)-500 23112 A(I)=A(I)-120:BL(I)=BL(I)-100 23115 IFPEEK(A+I)<1THEN RETURN 23116 Y=INT(3*RND(1))+1:ONYGOTO23117,23118,23119 23117 A$="[212]ERRORANSCHLAG":GOTO23120 23118 A$="[194]RAND":GOTO23120 23119 A$="[201]RRTUM EINER [193]BRISSFIRMA" 23120 PRINT"[196]URCH EINEN ";A$ 23121 PRINT"VERLOREN [211]IE EIN";B$"." 23130 Z=INT(2000*RND(1))+1000:PRINT"[211]CHADEN :";Z"[200][198]" 23135 POKE(A+I),PEEK(A+I)-1:GOTO20800 23200 PRINT"[215]OLLEN SIE EIN LANDESWEITES [203]INDER-" 23205 PRINT"FEST VERANSTALTEN (J/N) ?" 23210 GETA$:IFA$=""THEN23210 23215 IFA$="J" THEN23230 23220 IFA$="N" THEN23260 23225 GOTO 23210 23230 PRINT"[196]ER [197]RFOLG WAR RIESIG,DIE [203]OSTEN" 23235 PRINT"LEIDER AUCH! [196]AS [199]ANZE KOSTETE N^MLICH" 23240 X=(INT(EW(I)/3)/3):Y=INT(X*RND(1))+2000:PRINT"";Y"[200][198].":G(I)=G(I)-Y 23245 POKE(1039+I),PEEK(1039+I)+3:IFPEEK(1039+I)>100THENPOKE(1039+I),100 23255 GOTO23280 23260 GOSUB50760:PRINT"[201]HREN [199]EIZ !" 23270 IFPEEK(1039+I)-3<1THENPOKE(1039+I),0:GOTO23280 23275 POKE(1039+I),PEEK(1039+I)-3 23280 GOTO20800 23300 PRINT"[197]XTRA [211]TEUEREINNAHMEN DURCH EINE" 23305 X=INT(2000*RND(1))+2000:PRINT"PRIVATE [204]OTTERIE :";X"[200][198]":G(I)=G(I)+X:GOTO20800 23400 PRINT"[212]ASTE !":GOTO20800 23500 X=INT(5*RND(1))+1:IFX>1THENPRINT"[212]ASTE !":GOTO20800 23503 GOSUB31000:PRINT"";N$(I)" IST LEIDER VER-" 23506 PRINT"STORBEN.[197]IN [212]ERRORIST DRANG IN SEINE" 23510 PRINT"[214]ILLA EIN UND VERGIFTETE IHN.":GOTO20800 23600 PRINT"[197]IN [185]LTRANSPORTER LIEF AUS UND VER- 23605 [153]"SEUCHTE DAS CHR$RUNDWASSER.STR$IE" 23610 X[178][181](1000[172][187](1)[170]750):[153]"VALNTSEUCHUNG KOSTETE";X"LEFT$ASC.":G(I)[178]G(I)[171]X 23615 [137]20800 23700 [153]"VALIN RIGHT$NDUSTRIELLER WIRD VERD^CHTIGT," 23710 [153]"(null)TEUERN HINTERZOGEN ZU HABEN.(null)OLLEN" 23720 [153]"SIE EINEN (null)ROZESS (J/N) ?" 23725 [161]A$:[139] A$[178]""[167] 23725 23730 [139]A$[178]"J"[167]23750 23735 [139]A$[178]"N"[167][142] 23740 [137] 23725 23750 X[178][181](2[172][187](1))[170]1:[139]X[178]1[167]23760 23754 [137]23770 23760 [153]"(null)IE HABEN GEWONNEN UND BEKOMMEN" 23762 X[178][181](3000[172][187](1))[170]1000:[153]"";X"LEFT$ASC.":G(I)[178]G(I)[170]X:[137]20800 23770 X[178]([181](1000[172][187](1))[170]500):[153]"(null)IE HABEN VERLOREN." 23771 [153]"CHR$ERICHTSKOSTEN :";X"LEFT$ASC":[137]20800 23800 [153]"PEEKEI EINEM ASCUSSBALLSPIEL WURDEN" 23805 X[178][181](5[172][187](1))[170]5:[153]"";X"ASCANS BEI (null)RFREGELEIEN GET\TET.":[141]50760 23816 [153]"RIGHT$HRE (null)OLIZEI.":[139][194](1039[170]I)[171]3[179]1[167] [151](1039[170]I),0:[137]20800 23820 [151](1039[170]I),[194](1039[170]I)[171]3:[137]20800 23900 [153]"CHR$EISELDRAMA !":X[178][181](3[172][187](1))[170]2:[153]"PEEKEI EINEM PEEKANKFREBERFALL WURDEN";X 23904 [153]"(null)EUTE ALS CHR$EISELN GENOMMEN.":[139][194](1091[170]I)[179]1[167]23930 23908 [153]"RIGHT$HR (null)ONDERKOMMANDO STFRERMTE DIE PEEKANK" 23910 [153]"UND BEFREITE DIE CHR$EISELN.STR$IE CHR$EISEL-":[153]"NEHMER WURDEN ERSCHOSSEN." 23918 X[178][181](1000[172][187](1))[170]1000:[153]"(null)OSTEN:";X"LEFT$ASC":G(I)[178]G(I)[171]X 23920 [139][194](1039[170]I)[170]4[177]100[167][151](1039[170]I),100:[137]20800 23922 [151](1039[170]I),[194](1039[170]I)[170]4:[137]20800 23930 [153]"STR$A SIE KEIN (null)ONDERKOMMANDO HATTEN," 23932 [153]"MUSSTE MAN DEN ASCORDERUNGEN NACHGEBEN." 23934 Y[178][181](X[172][187](1))[170]2:[153]"";Y"CHR$EISELN SIND UMS (null)EBEN GE-" 23936 [153]"KOMMEN.STR$AS (null)OLK IST SEHR VER^RGERT":EW(I)[178]EW(I)[171]Y 23938 [153]"DARFREBER,DASS KEIN (null)ONDERKOMMANDO" 23939 [153]"VORHANDEN WAR." 23940 [139][194](1039[170]I)[171]4[179]1[167][151](1039[170]I),0:[137]20800 23942 [151](1039[170]I),[194](1039[170]I)[171]4:[137]20800 24000 [153]"(null)ASTE !":[137]20800 24100 [153]"(null)IE MUSSTEN EINEN 40 MID$AHRE ALTEN" 24105 X[178][181](1000[172][187](1))[170]1000:[153]"(null)REDIT ZURFRECKZAHLEN.";:G(I)[178]G(I)[171]X 24106 [153]"(null)OSTEN:";X"LEFT$ASC":[137]20800 24200 [153]"RIGHT$HRE ATNRMEE HAT BEI EINEM INTER-":[153]"NATIONALEN UND KOSTENLOSEN ATNUS-" 24210 [153]"BILDUNGSWETTBEWERB TEILGENOMMEN.RIGHT$HRE" 24215 [153]"(null)AMPFST^RKE STIEG.":[139][194](1115[170]I)[170]4[177]100[167][151](1115[170]I),100:[137]20800 24220 [151](1115[170]I),[194](1115[170]I)[170]4:[137]20800 24300 [153]"ATNUS DEM (null)ERKAUF ALTER (null)AGERBEST^NDE" 24305 X[178][181](2000[172][187](1))[170]1000:[153]"ERHALTEN SIE";X"LEFT$ASC.":[137]20800 24400 [153]"VALINE (null)ENTEN-(null)ONDERZAHLUNG IST F^LLIG." 24405 X[178][181](2000[172][187](1))[170]1500:G(I)[178]G(I)[171]X:[153]"(null)OSTEN :";X"LEFT$ASC":[137]20800 24500 [153]"PEEKEI EINER LEFT$OCHWASSERKATASTROPHE" 24505 X[178][181](5000[172][187](1))[170]3000:[153]"ENTSTAND EIN (null)ACHSCHADEN VON";X"LEFT$ASC." 24510 G(I)[178]G(I)[171]X:X[178][181](100[172][187](1))[170]20:[153]"";X"(null)ENSCHEN KAMEN UMS (null)EBEN." 24515 EW(I)[178]EW(I)[171]X:[137]20800 24600 X[178][181](250[172][187](1))[170]200:[153]"VALINE CHR$RUPPE VON";X"POLITISCH" 24605 [153]"(null)ERFOLGTEN WURDE IN RIGHT$HR (null)AND AUFGE-" 24610 [153]"NOMMEN.":EW(I)[178]EW(I)[170]X:[137]20800 24700 [153]"RIGHT$N EINER (null)LINIK FIEL DER (null)TROM AUS." 24705 [153]"STR$A KEIN (null)OTSTROM-ATNGGREGAT VORHANDEN" 24710 X[178][181](15[172][187](1))[170]10:[153]"WAR STARBEN,";X"(null)ENSCHEN." 24715 [141]50760:[153]"DAS ASCEHLEN EINES (null)OTSTROM-":EW(I)[178]EW(I)[171]X 24720 [153]"AGGREGATS IN EINER (null)LINIK." 24725 Y[178][181](100[172][187](1))[170]50:Y[178]X[172]Y:[153]"STR$IE VALNTSCH^DIGUNGEN F*R DIE ASCAMILIEN" 24730 [153]"BELAUFEN SICH AUF";Y"LEFT$ASC.":G(I)[178]G(I)[171]Y 24735 [139][194](1039[170]I)[171]5[179]1[167][151](1039[170]I),0:[137]20800 24740 [151](1039[170]I),[194](1039[170]I)[171]5:[137]20800 24800 [153]"(null)IE BEKOMMEN EINEN (null)REDIT IN LEFT$\HE VON" 24805 X[178][181](7000[172][187](1))[170]3000:[153]"";X"LEFT$ASC ZURFRECK.":G(I)[178]G(I)[170]X:[137]20800 24900 [153]"RIGHT$HR (null)TAAT BEKAM DURCH EIN ASC\RDER-" 24905 [153]"UNGSPROJEKT EINEN (null)USCHUSS IN LEFT$\HE" 24910 X[178][181](10000[172][187](1))[170]5000:[153]"VON";X"LEFT$ASC.":G(I)[178]G(I)[170]X:[137]20800 25000 X[178][181](5[172][187](1))[170]1:[139]X[177]2[176][194](1023[170]I)[178]0[167][153]"(null)ASTE !":[137]20800 25020 [153]"VALINES RIGHT$HRER (null)ERNKRAFTWERKE IST IN" 25022 [153]"DIE (null)UFT GEFLOGEN.RIGHT$M GANZEN (null)AND BE-" 25025 [153]"GANN EIN (null)ASSENSTERBEN." 25030 [153]"RIGHT$HR (null)AND IST F*R DIE DIE N^CHSTEN 50" 25035 [153]"MID$AHRE NICHT MEHR BEWOHNBAR." 25040 [153]"(null)IE STARBEN EBENFALLS,WOMIT DAS":[151](1699[170]I),1 25045 [153]"(null)PIEL FFRER SIE LEIDER BEENDET IST.":[137]20800 25100 [153]"STR$URCH PEEKRANDSTIFTUNG IN EINEM RIGHT$HRER" 25105 [153]"PEEKFREROS ENSTAND EIN (null)ACHSCHADEN VON":X[178][181](3000[172][187](1))[170]2000 25110 [153]"";X"LEFT$ASC.":G(I)[178]G(I)[171]X:[137]20800 25200 [153]"PEEKEI EINEM CHR$RUBENUNGLFRECK KAMEN" 25205 X[178][181](20[172][187](1))[170]5:EW(I)[178]EW(I)[171]X:Y[178][181](3000[172][187](1))[170]2000:G(I)[178]G(I)[171]Y 25210 [153]"";X"(null)ENSCHEN UMS (null)EBEN.(null)IE MUSSTEN" 25215 [153]"";Y"LEFT$ASC AN DIE ASCAMILIEN DER (null)PFER" 25220 [153]"BEZAHLEN.":[137]20800 25300 [139][194](1043[170]I)[177]50[167][153]"(null)ASTE !":[137]20800 25305 [153]"(null)MWELTSCHUTZGRUPPEN VERANSTALTETEN" 25310 [153]"MEHRERE (null)ASSENDEMOS,UM AUF DEN" 25315 [153]"SCHLECHTEN (null)MWELTZUSTAND AUFMERKSAM" 25320 [153]"ZU MACHEN.":[137]20800 25400 [139][194](1023[170]I)[179]10[167][153]"(null)ASTE !":[137]20800 25405 [153]"STR$AS (null)OLK FORDERT SIE AUF,WENIGER" 25406 [153]"(null)ERNKRAFTWERKE ZU BAUEN.":[137]20800 25500 [153]"RIGHT$HR (null)EKRET^R MACHTE SICH MIT" 25505 X[178][181](3000[172][187](1))[170]999:[153]"";X"LEFT$ASC AUS DEM (null)TAUB.":[137]20800 25525 X[178][181](20[172][187](1))[170]5:EW(I)[178]EW(I)[171]X:Y[178]X[173]2 25600 [153]"(null)IE WERDEN AUFGEFORDERT,LEFT$ILFSGFRETER" 25610 [153]"FFRER VALRDBEBENOPFER IN MID$APAN BE-" 25620 [153]"REITZUSTELLEN.STR$IE (null)OSTEN SIND NOCH" 25630 [153]"NICHT ABSCH^TZBAR.RIGHT$HR (null)OLK FORDERT" 25640 [153]"SIE AUF,ZU SPENDEN.(null)OLLEN SIE" 25650 [153]"DIE LEFT$ILFSGFRETER BEREITSTELLEN (J/N) ?" 25660 [161]A$:[139]A$[178]""[167]25660 25670 [139]A$[178]"J"[167]25690 25675 [139]A$[178]"N"[167]25682 25676 [137]25660 25682 [141]50760:[153]"IHREN CHR$EIZ !":[139][194](1039[170]I)[171]4[179]0[167][151](1039[170]I),0:[137]20800 25683 [151](1039[170]I),[194](1039[170]I)[171]4:[137]20800 25690 [153]"STR$AS (null)OLK IST FREBER IHRE LEFT$ILFSBEREIT-" 25691 X[178][181](3000[172][187](1))[170]2500:G(I)[178]G(I)[171]X:[151](1039[170]I),[194](1039[170]I)[170]2 25692 [153]"SCHAFT SEHR ERFREUT.(null)OSTEN:";X"LEFT$ASC":[137]20800 25693 [139][194](1039[170]I)[177]100[167][151](1039[170]I),100 25700 [153]"STR$IE (null)ENOVIERUNG DER ATNLTSTADT RIGHT$HRER":X[178][181](2000[172][187](1))[170]1000 25705 [153]"LEFT$AUPTSTADT KOSTET (null)IE";X"LEFT$ASC.":G(I)[178]G(I)[171]X:[137]20800 30000 [153]"LOAD LEFT$ERZLICHEN CHR$L*CKWUNSCH," 30005 [153]"(null)IE HABEN RIGHT$HRE ATNMTSZEIT *BERSTANDEN." 30010 X[178]1:Y[178]LB(X):[129]Z[178]1[164]9:[139]LB(Z)[177]Y[167]Y[178]LB(Z):X[178]Z:[130] 30015 [130] 30030 [153]"(null)IEGER IST ";LN$(X)",DESSEN (null)R^SI-" 30040 [153]"DENT NUN DIE GANZE VALCHR$ REGIEREN WIRD." 30050 [153]"STR$IE ANDEREN (null)R^SIDENTEN SIND WEGEN" 30060 [153]"MANGELNDER ASCFREHRUNGSF^HIGKEIT AUSGE-" 30070 [153]"GESCHIEDEN.":[141]20800:[138] 31000 [153]"LOADSYS [ [ [" 31005 [153]" ] ] ]" 31006 [141]31010:[137]31011 31010 [129]A[178]1[164]2:[153]"STOP   ":[130]A:[142] 31011 [153]"STOP  STOP   STOP   STOP " 31012 [153]"STOP  STOP   STOP   STOP " 31013 [153]"STOP   " 31014 [153]"STOP  STOP   STOP   STOP " 31015 [153]"STOP  STOP   STOP   STOP " 31017 [141]31010 31019 [153]"STOP " 31020 [153]"ONSTOP CONTSTOPWAIT";:[142] 31130 C2[178][194](1200[170]C):A2[178]A2[170]B2[170]C2[170]50 32000 [141]31000:[153]"STR$A SIE ANSCHEINEND NICHT MIT CHR$ELD" 32010 [153]"UMGEHEN K\NNEN UND IN DIE (null)INUSZAHLEN" 32020 [153]"WIRTSCHAFTETEN,WURDEN SIE VON RIGHT$HREM" 32025 [153]"WFRETENDEM (null)OLK ERSCHLAGEN !":[151](1035[170]I),1:[137]20800 32145 [151](1155[170]I),[194](1155[170]I)[171]2:[137]19299 33000 [141]19000:[153]"(null)ANDWIRTSCHAFT":[139]GV(I)[178]0[167]33100 33003 [139]GV(I)[179]SG(I)[167][153][166]9)"(null)(null)CLOSE(null)VAL(null)RIGHT$CHR$CLOSE(null)ATNATN(null)CHR$(null)(null)!!!" 33005 [153]"(null)OSTEN FFRER" 33010 X[178]AC(I)[172]2:Y[178][181](500[172][187](1))[170]99:X[178]X[170]Y:G(I)[178]G(I)[171]X:[153]"- DAS (null)FLFREGEN"; 33011 [153]" DER ASCELDER :";X"LEFT$ASC" 33020 X[178]([181](SG(I)[173]2)):Y[178][181](500[172][187](1))[170]99:X[178]X[170]Y 33021 [153]"- DIE ATNUSSAAT :";X"LEFT$ASC" 33025 [139]GV(I)[177]SG(I)[167]W[178]SG(I):GV(I)[178]GV(I)[171]SG(I):[137]33030 33027 W[178]GV(I):GV(I)[178]0 33030 [153]"- VERBRAUCHTES (null)AATGUT :";W"CHR$LEFT$ASC":[137]20800 33100 [153]"STR$A SIE KEIN (null)AATGUT HATTEN,KONNTEN" 33110 [153]"(null)IE LEIDER KEIN CHR$ETREIDE ANPFLANZEN.":W[178]0:[141]20800 35000 SP[178]52585 35001 [141]19000:[153]"(null)ELCHES (null)AND WOLLEN SIE ANGREIFEN ?" 35005 A[178]11:[151]SP,62:B[178]400:JMP[178]1 35006 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]:[153]"(null)ENFRE" 35035 [141]20100:[139]JMP[178]11[167]2499 35036 [139]JM[178]I[167]35001 35037 [151](1159[170]I),1:X[178]O:[129]Y[178]ZZ[170]1[164]10:X[178]X[170][194](1699[170]Y):[130] 35038 [139]JM[179]ZZ[170]1[175]X[178]10[171]ZZ[175][194](1699[170]JM)[178]0[167]35050 35039 [139]JM[177]ZZ[175][194](1699[170]JMP)[178]0[167]35050 35040 [137]35000 35050 Y[178]JMP:[137]19677 36000 U[178][194](1299[170]I)[172]1:V[178][194](1309[170]I)[172]2:W[178][194](1319[170]I)[172]1:U[178]U[170]V[170]W 36005 [139][194](1399[170]I)[170]U[177]255[167][151](1399[170]I),255:[137]36010 36006 [151](1399[170]I),U 36010 U[178][194](1299[170]Y)[172]1:V[178][194](1309[170]Y)[172]2:W[178][194](1319[170]Y)[172]1:U[178]U[170]V[170]W 36015 [139][194](1399[170]Y)[170]U[177]255[167][151](1399[170]Y),255:[142] 36016 [151](1399[170]Y),U:[142] 37000 [141]19000:[153]"*BER WELCHES (null)AND WOLLEN SIE":[153]"RIGHT$NFORMATIONEN ?" 37001 [129]X[178]1[164]10:[139]LB(X)[179]0[167]LB(X)[178]512:[130] 37002 [130] 37030 SP[178]52665:A[178]11:[151]SP,62:B[178]400:JMP[178]1 37040 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130] 37041 [153]"(null)ENFRE":[141]20100:[139]JMP[178]11[167][142] 37052 [139][194](1699[170]JM)[178]1[167][153]"VALXISTIERT NICHT MEHR!":[141]20800:[137]37000 37060 X[178]JMP:[141]19000:[153]"RIGHT$NFORMATIONEN FREBER ";LN$(X) 37080 [153]"(null)ANZER :";[194](1299[170]X) 37085 [153]"ASCLUGZEUGE :";[194](1309[170]X) 37090 [153]"(null)RUPPEN :";[194](1319[170]X) 37092 [153]"(null)ASERNEN :";[194](1380[170]X) 37100 [153]"ATNUSBILDUNG :";[194](1399[170]X)"%" 37110 [153]"(null)ANDESGR\SSE:";LB(X)"(null)LEFT$ASC":[141]20800:[137]37000 38000 [139]JA[179]2013[167][142] 38010 [129]PP[178](ZZ[170]1)[164]10:[139]PP[177]10[167][142] 38020 Y[178][181](10[172][187](1))[170]1 38021 [139]Y[179]10[173]([194](1710)[170]1)[167][130]PP:[137]38080 38035 [139][194](1699[170]PP)[178]0[167]38038 38036 [139]PP[179]10[167][130]PP 38037 [142] 38038 S[178]0 38040 Y[178][181](10[172][187](1))[170]1:S[178]S[170]0.2:F[178][194](1309[170]Y)[170][194](1299[170]Y)[170][194](1319[170]Y) 38041 E[178][194](1299[170]PP)[170][194](1309[170]PP)[170][194](1319[170]PP):[139]E[170]([194](1710[172]5))[179]F[175]PP[179]10[167][130]:[142] 38044 [139]S[178]5[175]PP[179]10[167][130]PP 38045 [139]S[177]5[175]PP[178]10[167]38080 38050 [139]Y[178]PP[167]38040 38051 [139]PP[179]5[175]Y[179]5[167]38040 38055 [139][194](1299[170]Y)[170][194](1309[170]Y)[170][194](1319[170]Y)[177]0[167]38059 38056 [137]38040 38059 [153]"LOADVALS K^MPFT: ";LN$(PP)" GEGEN ";LN$(Y):[151]1800,I:I[178]PP:RR[178]1:[141]19676 38070 [139]PP[179]10[167][130]PP 38080 I[178][194](1800):[142] 40000 [153]"VALNDE DES (null)RIEGES !":[141]20800 40002 [153]"LOAD";LN$(A)" HAT LEIDER KEINE (null)RUPPEN" 40010 [153]"MEHR UND MUSS SICH ERGEBEN.STR$IE":X[178]LB(A)[173]4:X[178][181](X[173]4)[170]1959 40011 [139]X[177]LB(A)[167]X[178]LB(A) 40015 LB(B)[178]LB(B)[170]X:GL(B)[178]GL(B)[170]X:[151](1699[170]A),1 40020 [153]"LEFT$AUPTSTADT WURDE ZERST\RT" 40021 [153]"UND ";LN$(B) 40022 [153]"BEKAM";X"(null)LEFT$ASC (null)AND.":[141]47000 40030 [151](1699[170]A),1:[139]BB[178]1[167]BB[178]0:[141]20800:[137]2498 40031 [137]20800 41000 [153]"LOADPEEKITTE WARTEN !" 41003 [129]X[178](ZZ[170]1)[164]10:[139][194](1699[170]X)[178]1[167][130]X 41006 A[178][194](1299[170]X):B[178][194](1309[170]X):C[178][194](1319[170]X) 41022 Y[178]5[172][187](1)[170]4:A[178]A[170]Y:[139][194](1299[170]X)[170]A[179]255[167][151](1299[170]X),A:[137]41027 41024 [151](1299[170]X),255 41027 Y[178]5[172][187](1)[170]3:B[178]B[170]Y:[139][194](1309[170]X)[170]B[179]255[167][151](1309[170]X),B:[137]41032 41029 [151](1309[170]X),255 41032 Y[178]9[172][187](1)[170]6:C[178]C[170]Y:[139][194](1319[170]X)[170]C[179]255[167][151](1319[170]X),C:[137]41040 41033 [151](1319[170]X),255 41040 U[178][194](1299[170]X)[172]1.5:V[178][194](1309[170]X)[172]2:W[178][194](1319[170]X)[172]1:U[178]U[170]V[170]W 41050 [139][194](1399[170]X)[170]U[177]100[167][151](1399[170]X),100:[137]41060 41051 [151](1399[170]X),U 41060 [141]50200 41061 [141]51000 41070 [139]X[179]10[167][130]X:[142] 41075 [142] 42000 [139][194](1163[170]I)[178]1[167][141]20060:[137]19299 42001 [139][194](1091[170]I)[177]0[167][137]42005 42002 [153]"VALRST (null)ONDERKOMMANDO KAUFENWAIT":[141]20800:[137]19299 42005 [141]19000:[153][166]14)"(null)ATNPEEK(null)(null)ATNCHR$VAL" 42007 SP[178]52705:A[178]11:[151]SP,62:JMP[178]1:B[178]400 42008 [153]"RIGHT$N WELCHEM (null)AND WOLLEN SIE EINE ":[153]"(null)ASERNE SABOTIEREN ?" 42010 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]X:[153]"(null)ENFRE":[141]20100 42011 [139]JMP[178]11[167]19299 42015 [139][194](1379[170]JMP)[178]0[167]42005 42016 [139][194](1699[170]JMP)[178]1[167]42005 42020 [141]19000:Y[178][194](1087[170]I)[170][194](1155[170]I):X[178]Y[170][194](1399[170]JM) 42021 [151](1163[170]I),1:[139]X[178]Y[167]Y[178]Y[171]1 42040 W[178]X[170]Y:Z[178][181](W[172][187](1))[170]1:[139]Z[179]X[176]Z[178]X[167]42100 42055 [153]"STR$ER ATNNSCHLAG IST GELUNGEN.STR$IE" 42060 [153]"(null)ASERNE UND DIE DAZUGEH\RIGEN" 42065 [153]"(null)AFFEN SIND ZERST\RT.STR$IE (null)OSTEN FFRER" 42070 X[178][181](4200[172][187](1))[170]3000:[153]"DIESEN ATNNSCHLAG BETRAGEN";X"LEFT$ASC." 42080 G(I)[178]G(I)[171]X:[141]20800:[137]42200 42100 [153]"STR$ER ATNNSCHLAG IST MISSLUNGEN.RIGHT$HR" 42110 [153]"(null)ONDERKOMMANDO WURDE ERSCHOSSEN.STR$IE" 42120 [153]"(null)OSTEN FFRER DIE VERLOREN GEGANGENE" 42130 X[178][181](4200[172][187](1))[170]1500:[153]"ATNUSRFRESTUNG BETR^GT";X"LEFT$ASC.":G(I)[178]G(I)[171]X 42140 [151](1091[170]I),[194](1091[170]I)[171]1 42143 [139][194](1155[170]I)[171]2[179]1[167][151](1155[170]I),0:[137]42150 42145 [151](1155[170]I),[194](1155[170]I)[171]2 42150 [141]20800:[137]19299 42200 [129]X[178]1[164]3:[139][194](1299[170]JMP)[171]3[179]0[167][151](1299[170]JMP),0:[137]42230 42220 [151](1299[170]JMP),[194](1299[170]JMP)[171]3 42230 JMP[178]JMP[170]10:[130]:Y[178]JMP:[141]36000:[137]19299 42500 [153]"(null)IEVIEL (null)TFRECK ";:[133]X 42501 [139]GL(I)[171]X[172]30[179]0[176][194](1379[170]I)[170]X[177]255[176]X[178]0[167][142] 42502 G(I)[178]G(I)[171]X[172]500:[151](1379[170]I),[194](1379[170]I)[170]X:A(I)[178]A(I)[170]X[172]30:EB(I)[178]EB(I)[170]X[172]50 42503 GL(I)[178]GL(I)[171]X[172]30:BL(I)[178]BL(I)[170]X[172]30:[137]20050 43000 [139][194](1379[170]I)[178]0[167][142] 43002 X[178][181](10[172][187](1))[170]1:[139]X[179](ZZ[170]1)[167]43002 43003 [139][194](1699[170]X)[178]1[167][142] 43005 Q[178][194](1399[170]X)[170][194](1151[170]I):Y[178][181](Q[172][187](1))[170]1 43006 [141]19000:[153]"";LN$(X)" VERFREBTE AUF EINE RIGHT$HRER" 43007 [153]"(null)ASERNEN EINEN ATNNSCHLAG.":[139]Y[177][194](1399[170]X)[167]43050 43020 [153]"STR$ER ATNNSCHLAG GELANG UND SIE VERLOREN":[153]"EINE (null)ASERNE." 43035 X[178]1299:[129]Y[178]1[164]3:[139][194](X[170]I)[171]3[179]0[167][151](X[170]I),0:X[178]X[170]10:[130]:[137]43048 43041 [151](X[170]I),[194](X[170]I)[171]3:X[178]X[170]10:[130] 43048 [151](1379[170]I),[194](1379[170]I)[171]1:BL(I)[178]BL(I)[171]30:GL(I)[178]GL(I)[170]30:EB(I)[178]EB(I)[171]50 43049 A(I)[178]A(I)[171]30:[137]20800 43050 [153]"STR$ER ATNNSCHLAG MISSLANG JEDOCH.":[137]20800 44000 X[178][181](EW(I)[173]80):Y[178][181](100[172][187](1))[170]1:X[178](X[170]Y)[170](100[171][194](1043[170]I)) 44005 EW(I)[178]EW(I)[171]X:[141]19000:[153]"STR$IESES MID$AHR STARBEN";X"(null)ENSCHEN UND" 44010 X[178][181](4[172][187](1))[170]7:Y[178][181](400[172][187](I)):X[178](X[172][194](1039[170]I))[170]Y:EW(I)[178]EW(I)[170]X 44015 [153]"ES WURDEN";X"(null)INDER GEBOREN.":GB(I)[178][181](EW(I)[173]2):[142] 45000 [153]"(null)OLLEN SIE DIESES MID$AHR (null)ANDWIRTSCHAFT" 45005 [153]"BETREIBEN (L) ODER VON RIGHT$HREN":[153]"(null)ORR^TEN LEBEN (V) ?" 45007 [161]A$:[139]A$[178]""[167]45007 45008 [139]A$[178]"L"[167]21751 45009 [139]A$[178]"V"[167]XX[178]512:[137]21843 45010 [137]45007 46000 [139]PI(I)[179]LH(I)[176]PI(I)[178]LH(I)[167]X[178]PI(I):[142] 46001 X[178]LH(I):Z[178]1:[142] 46002 [153]"STR$A SIE ZU WENIG (null)AGERPLATZ":X[178]PI(I)[171]LH(I):Z[178]0 46005 [153]"FFRER IHRE RIGHT$LEFT$ASC HATTEN,VERROTTETEN":[153]"";X"RIGHT$LEFT$ASC.":[142] 47000 [153]"STR$URCH (null)LFRENDERUNGEN BEKAM ";LN$(B):X[178][181](9000[172][187](1))[170]4000 47005 [153]"";X"LEFT$ASC.":G(B)[178]G(B)[170]X:[139]A[179](ZZ[170]1)[167]G(I)[178]G(I)[171]X 47006 [142] 47500 X[178][181]([194](1399[170]I)[173]3):[151](1399[170]I),[194](1399[170]I)[171]X:Y[178][181](999[172][187](1)) 47502 X[178]((100[171][194](1399[170]I))[172]127)[170]Y:[129]Y[178]1[164]3:X[178]X[170][194](1289[170](Y[172]10[170]I))[172]44:[130] 47510 [141]19000:[153]"STR$AS (null)ILIT^R VERLANGT";X"LEFT$ASC,UM" 47515 [153]"IHR (null)ILIT^R GUT AUSBILDEN ZU K\NNEN.":[141]20500 47520 W[178][181](B[173]127):[139][194](1399[170]I)[170]W[177]100[167][151](1399[170]I),100:[137]48000 47530 [151](1399[170]I),[194](1399[170]I)[170]W 48000 X[178][181]([194](1155[170]I)[173]3):[151](1155[170]I),[194](1155[170]I)[171]X:Y[178][181](999[172][187](1)) 48002 X[178]((100[171][194](1155[170]I))[172]96)[170]Y 48004 [141]19000:[153]"STR$ER (null)OLIZEIPR^SIDENT VERLANGT" 48005 [153]"";X"LEFT$ASC VON RIGHT$HNEN,UM VERALTETE ATNUS-" 48007 [153]"RFRESTUNG ZU MODERNISIEREN UND NEUE" 48009 [153]"KAUFEN ZU K\NNEN.":[141]20500 48012 W[178][181](B[173]96):[139][194](1155[170]I)[170]W[177]100[167][151](1155[170]I),100:[137]48500 48015 [151](1155[170]I),[194](1155[170]I)[170]W 48500 X[178][181]([194](1087[170]I)[173]4):[151](1087[170]I),[194](1087[170]I)[171]X:Y[178][181](999[172][187](1)) 48503 X[178]((100[171][194](1087[170]I))[172]122)[170](Y[170](PO(I)[172]2)[170][194](1091[170]I)[172]300) 48506 [141]19000:[153]"VALS WERDEN";X"LEFT$ASC BEN\TIGT,UM DIE" 48509 [153]"(null)OLIZEI AUSZUBILDEN.":[141]20500 48512 W[178][181](B[173]122):[139][194](1087[170]I)[170]B[177]100[167][151](1087[170]I),100:[137]22600 48515 [151](1087[170]I),[194](1087[170]I)[170]B:[137]22600 49000 [139]JM[178]2[176]JM[178]4[176]JM[178]6[167]20291 49001 [153]"LOADRIGHT$HR (null)OLK L^SST AUS ATNNGST VOR EINER" 49005 [153]"(null)OURISTENSCHWEMME DEN PEEKAU WEITERER" 49010 [153]"(null)OURISTENANLAGEN NICHT ZU !":[137]20800 49500 [141]19000:[153]"STR$A SIE ZU WENIG (null)FREHLEN HATTEN,":YY[178]1 49502 [153]"KONNTE NICHT GENFREGEND (null)ORN FFRER RIGHT$HR" 49504 [153]"(null)OLK GEMAHLEN WERDEN.VALS VERHUNGERTEN":X[178]GB(I)[171]GK(I):EW(I)[178]EW(I)[171]X 49506 [153]"INSGESAMT";X"(null)ENSCHEN.STR$AS (null)OLK IST":[153]"SEHR VER^RGERT." 49508 X[178]X[173]20:[139][194](1039[170]I)[171]X[179]1[167][151](1039[170]I),0:[137]20800 49512 [151](1039[170]I),[194](1039[170]I)[171]X:[137]20800 50000 [153]"LOAD(null)IT WIEVIEL CHR$ELD WOLLEN (null)IE" 50001 A[178]0:[153]"STARTEN (MAXIMAL 50000 LEFT$ASC)";[166]54);:[133]A 50002 [139]A[179][178]0[176]A[177]50000[167]50000 50003 [129]X[178]1[164]ZZ:G(X)[178]A:[130]:[142] 50100 X[178]0:[153]"LOAD(null)ELCHE (null)CHWIERIGKEITSSTUFE M\CHTEN" 50101 [153]"(null)IE SPIELEN (1-5)";[166]63);:[133]X:[139]X[179]1[176]X[177]5[167]50100 50102 [151]1710,X:[137]60000 50200 Y[178][194](1710) 50202 [139][194](1299[170]X)[170]Y[177]250[167][151](1299[170]X),250:[137]50204 50203 [151](1299[170]X),[194](1299[170]X)[170]Y 50204 [139][194](1319[170]X)[170]Y[177]250[167][151](1319[170]X),250:[137]50206 50205 [151](1319[170]X),[194](1319[170]X)[170]Y 50206 [139][194](1309[170]X)[170]Y[177]250[167][151](1309[170]X),250:[137]50208 50207 [151](1309[170]X),[194](1309[170]X)[170]Y 50208 [142] 50500 [141]19000:[153]"(null)OLEN (null)IE WIRKLICH ZUR ATNUSWERTUNG ?" 50502 [153]"(null)ENN JA,DANN BITTE 'SPACE' DRFRECKEN,AN-":[153]"SONSTEN BITTE 'X'" 50504 [161]A$:[139]A$[178]""[167]50504 50506 [139]A$[178]"X"[167]500 50507 [142] 50700 A[178]0:[153]"(null)IEVIEL (null)OLIZISTEN ENTLASSEN ";:[133]A 50701 [139]A[177]PO(I)[176]A[179]0[167][153]"ONONON":[137]50700 50702 A[178]([181](A)):PO(I)[178]PO(I)[171]A:A(I)[178]A(I)[171]A[172]10:[142] 50760 [153]"STR$AS (null)OLK IST SEHR VER^RGERT FREBER":[142] 51000 [151](1379[170]X),[194](1379[170]X)[170]5:[139][194](1379[170]X)[177]85[167][151](1379[170]X),85 51001 [142] 51300 [153]"PEEKIETET NICHTS AN !";:[141]20800 51301 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD ONONONONON":[142] 52000 X[178][181](50[172][187](1))[170]34:[142] 60000 [153]"LOAD(null)IEVIEL MID$AHRE WOLLEN (null)IE SPIE-":[153]"LEN (MAX. 30) ";:[133]X 60001 [139]X[179]5[176]X[177]30[167]60000 60002 [151]1711,X:[142]